﻿Public Class ThuChiCoDinh
    Public DSThu As DataTable = New DataTable()
    Public DSChi As DataTable = New DataTable()
    Private Sub SetHeaderColumnThu()

        DS_ThuCoDinh.Columns(0).HeaderText = "Mã Phiếu"
        DS_ThuCoDinh.Columns(0).Visible = True
        DS_ThuCoDinh.Columns(1).HeaderText = "Số Tiền"
        DS_ThuCoDinh.Columns(1).Visible = True
        DS_ThuCoDinh.Columns(2).HeaderText = "ID Loai Tai Khoan"
        DS_ThuCoDinh.Columns(2).Visible = False
        DS_ThuCoDinh.Columns(3).HeaderText = "Loại Tài Khoản"
        DS_ThuCoDinh.Columns(3).Visible = True
        DS_ThuCoDinh.Columns(4).HeaderText = "ID Danh Muc Thu"
        DS_ThuCoDinh.Columns(4).Visible = False
        DS_ThuCoDinh.Columns(5).HeaderText = "Phân Loại Thu"
        DS_ThuCoDinh.Columns(5).Visible = True
        DS_ThuCoDinh.Columns(6).HeaderText = "Chi Tiết"
        DS_ThuCoDinh.Columns(6).Visible = True
        DS_ThuCoDinh.Columns(7).HeaderText = "Ngày Thu"
        DS_ThuCoDinh.Columns(7).Visible = True
        DS_ThuCoDinh.Columns(8).HeaderText = "ID User Tao"
        DS_ThuCoDinh.Columns(8).Visible = False
        DS_ThuCoDinh.Columns(9).HeaderText = "Người Tạo"
        DS_ThuCoDinh.Columns(9).Visible = True
        DS_ThuCoDinh.Columns(10).HeaderText = "ID Nguoi Thu"
        DS_ThuCoDinh.Columns(10).Visible = False
        DS_ThuCoDinh.Columns(11).HeaderText = "Người Thu"
        DS_ThuCoDinh.Columns(11).Visible = True
        DS_ThuCoDinh.Columns(12).HeaderText = "Đã Thu"
        DS_ThuCoDinh.Columns(12).Visible = True
    End Sub
    Private Sub SetHeaderColumnChi()
        DS_ChiCoDinh.Columns(0).HeaderText = "Mã Phiếu"
        DS_ChiCoDinh.Columns(0).Visible = True
        DS_ChiCoDinh.Columns(1).HeaderText = "Số Tiền"
        DS_ChiCoDinh.Columns(1).Visible = True
        DS_ChiCoDinh.Columns(2).HeaderText = "ID Loai Tai Khoan"
        DS_ChiCoDinh.Columns(2).Visible = False
        DS_ChiCoDinh.Columns(3).HeaderText = "Loại Tài Khoản"
        DS_ChiCoDinh.Columns(3).Visible = True
        DS_ChiCoDinh.Columns(4).HeaderText = "ID Danh Muc Chi"
        DS_ChiCoDinh.Columns(4).Visible = False
        DS_ChiCoDinh.Columns(5).HeaderText = "Phân Loại Chi"
        DS_ChiCoDinh.Columns(5).Visible = True
        DS_ChiCoDinh.Columns(6).HeaderText = "Chi Tiết"
        DS_ChiCoDinh.Columns(6).Visible = True
        DS_ChiCoDinh.Columns(7).HeaderText = "Ngày Chi"
        DS_ChiCoDinh.Columns(7).Visible = True
        DS_ChiCoDinh.Columns(8).HeaderText = "ID User Tao"
        DS_ChiCoDinh.Columns(8).Visible = False
        DS_ChiCoDinh.Columns(9).HeaderText = "Người Tạo"
        DS_ChiCoDinh.Columns(9).Visible = True
        DS_ChiCoDinh.Columns(10).HeaderText = "ID Nguoi Chi"
        DS_ChiCoDinh.Columns(10).Visible = False
        DS_ChiCoDinh.Columns(11).HeaderText = "Người Chi"
        DS_ChiCoDinh.Columns(11).Visible = True
        DS_ChiCoDinh.Columns(12).HeaderText = "Đã Chi"
        DS_ChiCoDinh.Columns(12).Visible = True
    End Sub

    Private Sub ThuChiCoDinh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DSThu = ThuChiCoDinhDAO.ThuCoDinhTheoIDUser(MainForm.current_user.MaUser)
        DSChi = ThuChiCoDinhDAO.GetAllChiCoDinh(MainForm.current_user.MaUser)
        DS_ThuCoDinh.DataSource = DSThu
        DS_ThuCoDinh.Columns(1).DefaultCellStyle.Format = "#,###"
        DS_ChiCoDinh.DataSource = DSChi
        DS_ChiCoDinh.Columns(1).DefaultCellStyle.Format = "#,###"
        SetHeaderColumnThu()
        SetHeaderColumnChi()

    End Sub

    Private Sub bt_thoat_Click(sender As System.Object, e As System.EventArgs) Handles bt_thoat.Click
        Me.Close()
    End Sub

    Private Sub bt_them_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_them.Click
        TaoSuaThuChiCoDinh.Text = "Thêm Một Đối Tượng Mới"
        If TabControl_thuchi.SelectedIndex() = 0 Then
            TaoSuaThuChiCoDinh.Settab("thu")
            TaoSuaThuChiCoDinh.SetTitle("Thêm Một Đối Tượng Mới")
            TaoSuaThuChiCoDinh.ShowDialog()
        Else
            TaoSuaThuChiCoDinh.Settab("chi")
            TaoSuaThuChiCoDinh.SetTitle("Thêm Một Đối Tượng Mới")
            TaoSuaThuChiCoDinh.ShowDialog()
        End If
    End Sub

    Private Sub bt_sua_Click(sender As System.Object, e As System.EventArgs) Handles bt_sua.Click
        TaoSuaThuChiCoDinh.Text = "Sửa Một Đối Tượng"
        If TabControl_thuchi.SelectedIndex() = 0 Then
            TaoSuaThuChiCoDinh.Settab("thu")
            Dim index As Integer = DS_ThuCoDinh.CurrentCell.RowIndex
            TaoSuaThuChiCoDinh.index = index
            TaoSuaThuChiCoDinh.RowUpdate = DSThu.Rows(index)
            TaoSuaThuChiCoDinh.SetTitle("Sửa Đối Tượng Thu")
            TaoSuaThuChiCoDinh.SuaDoiTuong()
            TaoSuaThuChiCoDinh.ShowDialog()
        Else
            TaoSuaThuChiCoDinh.Settab("chi")
            Dim index1 As Integer = DS_ChiCoDinh.CurrentCell.RowIndex
            TaoSuaThuChiCoDinh.index = index1
            TaoSuaThuChiCoDinh.RowUpdate = DSChi.Rows(index1)
            TaoSuaThuChiCoDinh.SetTitle("Sửa Đối Tượng Chi")
            TaoSuaThuChiCoDinh.SuaDoiTuong()
            TaoSuaThuChiCoDinh.ShowDialog()
        End If
    End Sub

    Private Sub bt_xoa_Click(sender As System.Object, e As System.EventArgs) Handles bt_xoa.Click
        If TabControl_thuchi.SelectedIndex() = 0 Then
            Dim index As Integer = DS_ThuCoDinh.CurrentCell.RowIndex
            Dim answer As DialogResult = MessageBox.Show("Bạn thật sự muốn xóa đối tượng đã chọn?", "Thông Báo", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If answer = Windows.Forms.DialogResult.Yes Then
                Dim result As Integer = ThuChiCoDinhDAO.DeleteThuCoDinh(DSThu.Rows(index).Item(0))
                If result = 1 Then
                    DS_ThuCoDinh.Rows.RemoveAt(index)
                Else
                    MessageBox.Show("Có lỗi xảy ra khi thực hiện xóa dữ liệu từ Database, vui lòng kiểm tra lại thông tin.", "Thông Báo", MessageBoxButtons.OK)
                End If
            End If
        Else
            Dim index As Integer = DS_ChiCoDinh.CurrentCell.RowIndex
            Dim answer As DialogResult = MessageBox.Show("Bạn thật sự muốn xóa đối tượng đã chọn?", "Thông Báo", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If answer = Windows.Forms.DialogResult.Yes Then
                Dim result As Integer = ThuChiCoDinhDAO.DeleteChiCoDinh(DSChi.Rows(index).Item(0))
                If result = 1 Then
                    DS_ChiCoDinh.Rows.RemoveAt(index)
                Else
                    MessageBox.Show("Có lỗi xảy ra khi thực hiện xóa dữ liệu từ Database, vui lòng kiểm tra lại thông tin.", "Thông Báo", MessageBoxButtons.OK)
                End If
            End If
        End If
    End Sub

    Private Sub DS_ChiCoDinh_CellDoubleClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DS_ChiCoDinh.CellDoubleClick
        bt_sua_Click(Nothing, Nothing)
    End Sub

    Private Sub DS_ThuCoDinh_CellDoubleClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DS_ThuCoDinh.CellDoubleClick
        bt_sua_Click(Nothing, Nothing)
    End Sub
End Class